Disc to the Future 2/Disc to the Future Part II Programmer's Reference (Wayzata Technology)(6013)(1992).bin/MAC/MPW_TOOL/TOOLS/TOOLS_WI/PERL/UNTESTED/H2PL/GETIOCTL.SIZ

Text File | 1992-01-05 | 264b | 14 lines

#!/usr/bin/perl

open (IOCTLS,'/usr/include/sys/ioctl.h') || die "ioctl open failed";

while (<IOCTLS>) {
    if (/^\s*#\s*define\s+\w+\s+_IO(R|W|WR)\('?\w+'?,\s*\w+,\s*([^)]+)/) {
    $need{$2}++;
    }
}

foreach $key ( sort keys %need ) {
    print $key,"\n";
}